inherited FLancamentoBancario: TFLancamentoBancario
  Left = 264
  Top = 164
  Caption = 'Tipo Lancamento Bancario'
  Constraints.MinHeight = 399
  Constraints.MinWidth = 607
  OldCreateOrder = True
  OnCloseQuery = nil
  OnDestroy = nil
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'CAT_LANCAMENTO'
            Title.Alignment = taCenter
            Title.Caption = 'C'#243'd.Lancto'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRICAO'
            Title.Caption = 'Descri'#231#227'o'
            Width = 200
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 20
          Top = 69
          Width = 133
          Height = 16
          Caption = 'C'#243'digo do Lan'#231'amento'
          FocusControl = DBCodLancto
        end
        object Label3: TLabel [1]
          Left = 20
          Top = 98
          Width = 58
          Height = 16
          Caption = 'Descri'#231#227'o'
          FocusControl = DBDescricao
        end
        object Label4: TLabel [2]
          Left = 20
          Top = 128
          Width = 140
          Height = 16
          Caption = 'Lan'#231'amento Automatico'
        end
        object Label5: TLabel [3]
          Left = 20
          Top = 159
          Width = 141
          Height = 16
          Caption = 'Classifica'#231#227'o Financeira'
        end
        object Label6: TLabel [4]
          Left = 20
          Top = 188
          Width = 76
          Height = 16
          Caption = 'Centro Custo'
        end
        object Label7: TLabel [5]
          Left = 20
          Top = 218
          Width = 85
          Height = 16
          Caption = 'Conta Contabil'
        end
        object Label8: TLabel [6]
          Left = 20
          Top = 247
          Width = 47
          Height = 16
          Caption = 'Especie'
        end
        object SpeedButton3: TSpeedButton [7]
          Tag = 1
          Left = 566
          Top = 149
          Width = 26
          Height = 25
          Caption = '-->'
          OnClick = SpeedButton3Click
        end
        object SpeedButton1: TSpeedButton [8]
          Tag = 1
          Left = 566
          Top = 178
          Width = 26
          Height = 25
          Caption = '-->'
          OnClick = SpeedButton1Click
        end
        inherited panel2: TPanel
          TabOrder = 7
          inherited SBAtualiza: TSpeedButton
            Left = 258
          end
          inherited DBNavigator1: TDBNavigator
            Left = 708
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          TabOrder = 8
          inherited BtnConsuta: TBitBtn
            Enabled = False
          end
        end
        object DBCodLancto: TDBEdit
          Left = 187
          Top = 59
          Width = 70
          Height = 22
          Ctl3D = False
          DataField = 'CAT_LANCAMENTO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 0
          OnKeyPress = DBCodLanctoKeyPress
        end
        object DBDescricao: TDBEdit
          Left = 187
          Top = 89
          Width = 400
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'DESCRICAO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 1
        end
        object DBLCBPlano: TDBLookupComboBox
          Left = 187
          Top = 149
          Width = 375
          Height = 22
          Ctl3D = False
          DataField = 'CLAS_FINANCEIRA'
          DataSource = dsCadastro
          KeyField = 'CODIGO'
          ListField = 'DESCRICAO'
          ListSource = DSClassFin
          ParentCtl3D = False
          TabOrder = 3
          OnKeyDown = DBLCBPlanoKeyDown
        end
        object DBLCBCentroCusto: TDBLookupComboBox
          Left = 187
          Top = 178
          Width = 375
          Height = 22
          Ctl3D = False
          DataField = 'CENTRO_CUSTO'
          DataSource = dsCadastro
          KeyField = 'CODIGO'
          ListField = 'DESCRICAO'
          ListSource = DSCenCust
          ParentCtl3D = False
          TabOrder = 4
          OnKeyDown = DBLCBPlanoKeyDown
        end
        object DBContaContabil: TDBLookupComboBox
          Left = 187
          Top = 208
          Width = 375
          Height = 22
          Ctl3D = False
          DataField = 'CONTA_CONTABIL'
          DataSource = dsCadastro
          KeyField = 'PLANOCONT_CODIGO'
          ListField = 'PLANOCONT_DESCRICAO'
          ListSource = DSContConta
          ParentCtl3D = False
          TabOrder = 5
          OnKeyDown = DBLCBPlanoKeyDown
        end
        object DbEspecie: TDBLookupComboBox
          Left = 187
          Top = 238
          Width = 375
          Height = 22
          Ctl3D = False
          DataField = 'ESPECIE'
          DataSource = dsCadastro
          KeyField = 'ESP_CODIGO'
          ListField = 'ESP_DESCRICAO'
          ListSource = DSESpe
          ParentCtl3D = False
          TabOrder = 6
          OnExit = DbEspecieExit
          OnKeyDown = DBLCBPlanoKeyDown
        end
        object DBCLanctoAuto: TDBComboBox
          Left = 187
          Top = 118
          Width = 51
          Height = 24
          Ctl3D = False
          DataField = 'LANC_AUTOMATICO'
          DataSource = dsCadastro
          ItemHeight = 16
          Items.Strings = (
            'S'
            'N')
          ParentCtl3D = False
          TabOrder = 2
        end
      end
    end
  end
  inherited dsCadastro: TDataSource
    Top = 184
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'select * from COD_LANCAMENTO_BANCARIO')
    object QCadastroCAT_LANCAMENTO: TIntegerField
      FieldName = 'CAT_LANCAMENTO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.CAT_LANCAMENTO'
    end
    object QCadastroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.DESCRICAO'
      Size = 30
    end
    object QCadastroLANC_AUTOMATICO: TStringField
      FieldName = 'LANC_AUTOMATICO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.LANC_AUTOMATICO'
      Size = 1
    end
    object QCadastroCLAS_FINANCEIRA: TIntegerField
      FieldName = 'CLAS_FINANCEIRA'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.CLAS_FINANCEIRA'
    end
    object QCadastroCENTRO_CUSTO: TIntegerField
      FieldName = 'CENTRO_CUSTO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.CENTRO_CUSTO'
    end
    object QCadastroCONTA_CONTABIL: TIntegerField
      FieldName = 'CONTA_CONTABIL'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.CONTA_CONTABIL'
    end
    object QCadastroESPECIE: TIntegerField
      FieldName = 'ESPECIE'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.ESPECIE'
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.DATAMODIFICACAO'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.USUARIO'
    end
    object QCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.USUARIO_CADASTRO'
    end
    object QCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.USUARIO_AUTERACAO'
    end
    object QCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.USUARIO_EXCLUSAO'
    end
    object QCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.DATA_CADASTRO'
    end
    object QCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.DATA_EXCLUSAO'
    end
    object QCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.DATA_AUTERACAO'
    end
    object QCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.USUARIO_RECUPERACAO'
    end
    object QCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.COD_LANCAMENTO_BANCARIO.DATA_RECUPERACAO'
    end
  end
  inherited cdsCadastro: TClientDataSet
    object cdsCadastroCAT_LANCAMENTO: TIntegerField
      Alignment = taCenter
      FieldName = 'CAT_LANCAMENTO'
    end
    object cdsCadastroDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 30
    end
    object cdsCadastroLANC_AUTOMATICO: TStringField
      FieldName = 'LANC_AUTOMATICO'
      Size = 1
    end
    object cdsCadastroCLAS_FINANCEIRA: TIntegerField
      FieldName = 'CLAS_FINANCEIRA'
    end
    object cdsCadastroCENTRO_CUSTO: TIntegerField
      FieldName = 'CENTRO_CUSTO'
    end
    object cdsCadastroCONTA_CONTABIL: TIntegerField
      FieldName = 'CONTA_CONTABIL'
    end
    object cdsCadastroESPECIE: TIntegerField
      FieldName = 'ESPECIE'
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
  end
  object DSClassFin: TDataSource
    DataSet = Query1
    Left = 368
    Top = 72
  end
  object DSCenCust: TDataSource
    DataSet = QCcusto
    Left = 368
    Top = 104
  end
  object DSContConta: TDataSource
    DataSet = Query3
    Left = 368
    Top = 136
  end
  object DSESpe: TDataSource
    DataSet = Query4
    Left = 368
    Top = 168
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM PLANOCONTAS ORDER BY ESTRUTURA')
    Left = 400
    Top = 72
  end
  object QCcusto: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM CENTROCUSTO ORDER BY ESTRUTURA')
    Left = 400
    Top = 104
  end
  object Query3: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From PlanoContabilidade')
    Left = 400
    Top = 136
  end
  object Query4: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from especie')
    Left = 400
    Top = 168
  end
end
